home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 167 / Tiger_Disk_167_19xx_Tiger-Crew-Disk_de_Side_A.d64 / ende c_100 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  662b  |  15 lines
  1. 5 rem
  2. 10 print"[147]":poke53280,.:poke53281,.:poke53265,80:poke56325,1
  3. 20 fora=4to14:forb=ato2step-1:poke646,b
  4. 30 x=1+x:ifx=20then110
  5. 40 poke646,peek(53265)and31
  6. 50 print"     [160][160]          [160]ende[160]          [160][160]     [146]";:poke53283,a:print"[145]"
  7. 60 poke646,a:print"[160][160][160][160]           [160][160][160][160][160][160][160][160][160][160]           [160][160][160][160]";:poke53282,b
  8. 70 poke646,peek(53270)and148 :print"[160][160][160][160][160]  [160][160][160][160][160][160][160][160][160][160][160]    [160][160][160][160][160][160][160][160][160][160][160]  [160][160][160][160][160]";
  9. 90 print"[146][160][160][160][160][160][160][160][160]   [160][160][160][160][160][160][160]    [160][160][160][160][160][160][160]   [160][160][160][160][160][160][160][160]";:poke53283,2+b:
  10. 100 next:print"[145][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]    [160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][145]";:poke53283,a:next
  11. 110 print"[147][160] [160][160]ende [160] [160]                [160] [160] ende [160] [160]";:poke56325,51:
  12. 115 fort=1to500:next:print"[147]":poke53265,17::poke56325,.
  13. 130 print"[147][152][169][205][155][214][152][206][223][157][157][157][157][151][213][155]v[151][201][145][212][148][157][157][157][157][157]  lukian"
  14. 140 poke56325,51:fort=1to444:next:sys2048
  15.